perm filename FONTS.OUT[JLG,SYS] blob sn#815169 filedate 1986-04-18 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	  1) FONTS.SAI[KA,JLG] and 2) FNTS.SAI[KA,JLG]	4-18-86 20:40	pages 11,11
C00005 00003	  1) FONTS.SAI[KA,JLG] and 2) FNTS.SAI[KA,JLG]	4-18-86 20:40	pages 14,14
C00006 ENDMK
C⊗;
  1) FONTS.SAI[KA,JLG] and 2) FNTS.SAI[KA,JLG]	4-18-86 20:40	pages 11,11

**** File 1) FONTS.SAI[KA,JLG]/11P/3L
1)	BEGIN "TFMPERUSE"
**** File 2) FNTS.SAI[KA,JLG]/11P/3L
2)	 COMMENT JLG DUE TO THE LACK OF A SPACE CHARACTER IN TFM FILES,
2)	             THE CHARACTER IN THE '40TH POSITION IS NOT AVAILABLE.
2)		     NO SPACE CHARACTER IS USED - INSTEAD THE X-POSITION OF
2)		     THE BEGINNING OF EACH WORD IS SET AND ENTERED INTO THE EL.;
2)	BEGIN "TFMPERUSE"
***************


**** File 1) FONTS.SAI[KA,JLG]/11P/28L
1)	IF EC > 127 THEN EC ← 127; COMMENT CW CAN ONLY HANDLE EC ≤ 127 FOR NOW;
1)	FOR I ← BC THRU EC DO
**** File 2) FNTS.SAI[KA,JLG]/11P/32L
2)	FOR I ← BC THRU EC DO
***************


**** File 1) FONTS.SAI[KA,JLG]/11P/59L
1)	END; "CHARINFO"
**** File 2) FNTS.SAI[KA,JLG]/11P/61L
2)	CW[-1] ← -1;  COMMENT USED TO SIGNAL TFM FILE;
2)	END; "CHARINFO"
***************


**** File 1) FONTS.SAI[KA,JLG]/12P/131L
1)	                                    IF EC > 127 THEN EC ← 127; 
1)	                                   comment jlg the CW array has 127 for upper bound;
1)				    end;
**** File 2) FNTS.SAI[KA,JLG]/12P/131L
2)				    end;
***************


**** File 1) FONTS.SAI[KA,JLG]/12P/192L
1)	                    FNTNUMBER[WHICH] ← -1;
**** File 2) FNTS.SAI[KA,JLG]/12P/190L
2)	                    CW[-1] ← 0;  COMMENT USED TO SIGNAL NOT A TFM FILE;
2)	                    FNTNUMBER[WHICH] ← -1;
***************


**** File 1) FONTS.SAI[KA,JLG]/14P/58L
1)	IF DEVICE ≠ MIC then BEGIN
1)	      IFC PASSONE THENC 
**** File 2) FNTS.SAI[KA,JLG]/14P/58L
  1) FONTS.SAI[KA,JLG] and 2) FNTS.SAI[KA,JLG]	4-18-86 20:40	pages 14,14

2)	IF DEVICE ≠ MIC THEN
2)	      BEGIN
2)	      IFC PASSONE THENC 
***************


**** File 1) FONTS.SAI[KA,JLG]/14P/68L
1)	        PERUSEFONT(WHICH, CHAN, FILENAME, PFOUNDIT) ;
1)	        END;
1)	IF NULSTR(BFILENAME) THEN  TES Didn't specify special name for XGP driver ;
**** File 2) FNTS.SAI[KA,JLG]/14P/69L
2)	      PERUSEFONT(WHICH, CHAN, FILENAME, PFOUNDIT) ;
2)	      END;
2)	IF NULSTR(BFILENAME) THEN  TES Didn't specify special name for XGP driver ;
***************